package HTML::Elemental::UL;

use Moose;
extends 'HTML::Elemental';

sub simple_add {
    
    my($self, $content)=@_;

    my $child = HTML::Element->new_from_lol( [ li => $content ] ) ;
    warn $child->as_HTML;
    warn $self->elem->as_HTML;
    $self->elem->push_content( $child ) ;

}

sub simple_add_html {
    
    my($self, $content)=@_;

    my $html_content = HTML::TreeBuilder->new_from_content($content)->guts;

    $self->simple_add($html_content);

}



=head1 NAME

HTML::Elemental::Select - HTML select pulldown

=head1 SYNOPSIS

my $pulldown = HTML::Elemental::Select->new(id => 'fruit_choice');

my $fruits = $db->iquery('SELECT fruit_id, fruit_name FROM fruit');
for my $fruit ($fruits->hashes) {
    $pulldown->add( HTML::Elemental::Option->new(content => $fruit->{fruit_name}, value => $fruit->{fruit_id}) ) ;
}

1;
